#! /usr/bin/perl -wl
#------------------------------------------------
# Author:    vj
# Created:   Sun Jun  9 21:29:15 IST 2013
# File Name: streams
# USAGE: 
#       streams 
# 
# 
#------------------------------------------------
open PLOT, "|gnuplot -p" or die "Unable to open command gnuplot\n";

print PLOT <<EOF;
plot for [i=2:17] "$ARGV[0]" using 1:i with lines
EOF

close PLOT;
